﻿Public MustInherit Class Creatures

    Protected _Name As String
    Protected _Sprite As Integer
    Protected _Strength As Integer
    Protected _Defense As Integer
    Protected _Agility As Integer
    Protected _Magic As Integer
    Protected _Heal As Integer
    Protected _Mana As Integer
    Protected _Special As Integer
    Protected _NumMap As Integer
    Protected _PosX As Integer
    Protected _PosY As Integer

    Public Property Name As String
        Get
            Return _Name
        End Get
        Set(ByVal value As String)
            _Name = value
        End Set
    End Property

    Public Property Sprite As Integer
        Get
            Return _Sprite
        End Get
        Set(ByVal value As Integer)
            _Sprite = value
        End Set
    End Property

    Public Property Stength As Integer
        Get
            Return _Strength
        End Get
        Set(ByVal value As Integer)
            _Strength = value
        End Set
    End Property

    Public Property Defense As Integer
        Get
            Return _Defense
        End Get
        Set(ByVal value As Integer)
            _Defense = value
        End Set
    End Property

    Public Property Agility As Integer
        Get
            Return _Agility
        End Get
        Set(ByVal value As Integer)
            _Agility = value
        End Set
    End Property

    Public Property Magic As Integer
        Get
            Return _Magic
        End Get
        Set(ByVal value As Integer)
            _Magic = value
        End Set
    End Property

    Public Property Heal As Integer
        Get
            Return _Heal
        End Get
        Set(ByVal value As Integer)
            _Heal = value
        End Set
    End Property

    Public Property Mana As Integer
        Get
            Return _Mana
        End Get
        Set(ByVal value As Integer)
            _Mana = value
        End Set
    End Property

    Public Property Special As Integer
        Get
            Return _Special
        End Get
        Set(ByVal value As Integer)
            _Special = value
        End Set
    End Property

End Class
